home *** CD-ROM | disk | FTP | other *** search
/ OctaMED Sound Studio 1 / OctaMED SoundStudio V1.iso / docs / rexx / killtrack.omed < prev    next >
Text File  |  1996-06-18  |  398b  |  20 lines
  1. /* Kill track */
  2. 'wi_request "Kill track?" "Full track|Only following notes|Cancel" var answer'
  3. select
  4. when answer=2 then do
  5.     op_update off
  6.     'ed_killnotes currtrack'
  7.     op_update on
  8.     wi_showstring "Killed."
  9.     end
  10. when answer=1 then do
  11.     op_update off
  12.     ed_getcurrline var currline
  13.     ed_goto line 0
  14.     'ed_killnotes currtrack'
  15.     ed_goto line currline
  16.     op_update on
  17.     wi_showstring "Killed."
  18.     end
  19. otherwise
  20. end